home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / USER2.FAS < prev    next >
Text File  |  1994-02-05  |  16KB  |  230 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01)
  4.    (*EDITOR* EDITOR-TEMPFILE EDIT-FILE SAVEINITMEM)
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
  7. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) APROPOS-LIST
  8.    REMOVE-OLD-DEFINITIONS
  9.    #Y(APROPOS-LIST
  10.       #49Y(01 00 01 00 00 08 00 2A 01 7B 03 00 00 3C 02 98 2A 01 00 0B 00 00 A7 69 00 01 8E 04 0E
  11.            A7 30 E2 64 01 00 D6 D7 37 02 31 61 19 06 A7 AC 30 E0 1A 6F
  12.           )
  13.       #Y(LISP::APROPOS-LIST-1
  14.          #28Y(01 00 00 00 00 02 65 01 01 A9 37 04 88 43 03 00 19 02 A8 07 00 01 58 0C 00 01 19 02)
  15.          NIL
  16.         )
  17.       #.#'STRING< #.#'SYMBOL-NAME
  18.   )  )
  19. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) FBOUND-STRING
  20.    REMOVE-OLD-DEFINITIONS
  21.    #Y(FBOUND-STRING
  22.       #25Y(01 00 00 00 00 02 A8 88 52 09 99 59 14 8A 19 06 C2 19 02 C0 19 02 C1 19 02)
  23.       "special form" "function" "macro"
  24.   )  )
  25. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) APROPOS
  26.    REMOVE-OLD-DEFINITIONS
  27.    #Y(APROPOS
  28.       #72Y(01 00 01 00 00 08 3C 01 A9 A9 6C 00 5F A8 88 92 32 83 01 00 14 37 01 30 82 A7 89 51 0C
  29.            D6 37 03 30 89 A7 6B 02 37 03 30 89 A7 89 50 0F D8 37 03 30 89 A7 88 5F 0A C5 14 37 03
  30.            30 89 7F 01 1A 4D C4 1A 74 16 02 3D 19 03
  31.           )
  32.       APROPOS-LIST "   " FBOUND-STRING "   " "constant" "variable"
  33.   )  )
  34. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DESCRIBE
  35.    REMOVE-OLD-DEFINITIONS
  36.    #Y(DESCRIBE
  37.       #1127Y(01 00 01 00 00 08 3C 01 5F 8F 02 80 80 A9 02 22 03 0E 01 F8 A9 D7 2F 03 A9 D9 AC 67 05
  38.              6C 06 2C 03 03 A9 DC 2F 03 AA 6E 24 98 1F 80 66 AB 6D 03 AC 6D 02 AC 61 62 AF 6E 1D AB
  39.              2C 04 03 A8 24 0B 05 AC 61 63 2F 03 A7 02 21 07 AC 61 64 A9 2C 03 03 AD 89 07 05 AC 61
  40.              65 2F 03 A8 8B 85 16 AC 61 66 AF 6D 05 2C 03 03 AD 89 13 09 AC 61 67 AF 6D 14 2C 03 03
  41.              AC 03 68 14 2F 03 16 02 16 01 8F 00 09 A9 61 69 A9 6E 43 2C 03 03 3D 19 04 0E 00 F8 1A
  42.              FF 81 98 25 08 83 93 AB CA 1A 13 AB C9 70 8F 00 16 14 AD 89 9B 71 A7 E0 8D 01 2E 07 AB
  43.              CC 14 9A 1A 83 95 AB CD 1A 02 AB CE 14 2F 03 16 01 1A FF BA AA D2 1A 80 5E AA D3 1A 80
  44.              59 AA ED 2F 03 AB 89 58 80 79 AA 03 19 1A 80 70 AA EF 2F 03 F0 AC 77 02 80 01 F1 EB AD
  45.              77 02 77 02 80 01 1A 80 5D AB 61 22 A9 2C 03 03 1A 80 98 10 24 1A 80 9B 8E 04 04 AA E4
  46.              2F 03 AA E5 AD 2C 03 03 AB 8B 7F 04 AA E6 2F 03 AB 89 50 1B AB 88 5F FF A4 AB 8A 81 FF
  47.              A4 AA D4 14 2F 03 AB 80 01 EA EB AD 77 02 77 02 80 01 AB 89 51 16 AA EC 2F 03 AB 88 52
  48.              FF 8B 9C 59 14 8A 19 FF 93 AA 03 1D 14 2F 03 AB 8B 7D 2C 5F AC 6E 7D 8F 00 0B 90 00 80
  49.              01 98 57 57 F6 8E 00 75 A8 31 43 16 01 F6 AB F3 A9 6E 41 AA 2C 04 03 16 01 F4 EB AD 77
  50.              02 77 02 80 01 AA F5 2F 03 AA 61 21 2F 03 AB 6E 7C 8E 00 FF 63 AB 61 23 2F 03 5F 8E 01
  51.              FF 63 00 10 25 B0 30 86 11 14 6D D2 5F 1A 15 83 01 00 10 24 B3 30 86 11 14 AA 37 04 89
  52.              36 03 A7 80 03 7F 01 A8 89 92 67 16 03 8F 00 14 AC 61 26 91 02 61 27 AB 6F 00 17 61 28
  53.              37 03 6E 61 2C 04 03 16 02 AA 03 29 1A 82 46 AA 61 2A AD 31 C6 1A 0E AA 03 2B 1A 82 38
  54.              AA 61 2C AD 37 01 31 B4 14 9B 1A 81 F9 AC 61 2E 2F 03 1A 35 A8 8A 84 75 AC 61 2F 9B 1A
  55.              17 AA 61 2D 2F 03 AB 6E B8 AC 6E B9 A7 8A 84 67 A8 8B 84 0C AC 61 30 9A 14 6E 86 2C 03
  56.              03 1A 0C AC 61 31 AA 6E 86 AA 6E 86 2C 04 03 16 02 AA 03 32 1A 81 E7 AA 61 33 2F 03 AB
  57.              6D 25 8A 84 05 AA 61 34 2F 03 AB 6D 26 8A 84 09 AA 61 35 AD 6D 26 2C 03 03 AA 61 36 2F
  58.              03 AA 61 37 AD 6D 1C 2C 03 03 AB 88 1B FE 0C AA 03 38 1A 81 AF AC 2E 3A 41 06 B1 AD AD
  59.              AD AD AD AD 2C 07 3B 61 3C F0 B4 6E 2F 77 02 77 02 80 08 61 3C EB B4 77 02 77 02 80 08
  60.              16 07 1A FD DC AC 61 3F A9 2C 03 03 16 02 1A FD D0 AB 6E 06 AB 61 39 A9 2C 03 03 8E 00
  61.              FF BC AB 61 3D AE E0 31 27 74 2C 03 03 AC 61 3E 6E 27 8E 00 53 16 02 1A FD AA B0 AC AC
  62.              AC AC AD AD 2C 07 3B 16 06 1A FD 9B AA 61 40 2F 03 AB 30 01 41 06 8E 05 64 16 06 1A FD
  63.              89 AB 8A 19 6A AA 03 41 1A 81 28 AA 61 42 AD 6E 6C AE 31 6D 1A 80 EA AA 61 43 AD 6D CC
  64.              2C 03 03 AB 6D CD 8F 00 07 AB 61 44 A9 2C 03 03 16 01 AA 61 45 2F 03 AB 6D CF AC 6D D0
  65.              AC 61 46 2F 03 8F 01 0E AC 61 47 91 03 61 27 AC 6F 00 17 2C 04 03 AC 61 48 00 2A 01 00
  66.              0B 00 00 A7 69 49 01 B1 30 E1 64 00 00 61 28 61 4A 37 02 7D 61 00 2C 03 03 8F 00 0E AC
  67.              61 4B 91 02 61 27 AB 6F 00 17 2C 04 03 AC 03 4C 1A FC FE AA 61 4D AD 30 69 1A 80 88 AA
  68.              61 4E AD 37 02 6D 6D 31 00 1A 80 7B AA 61 4F 5F 61 50 AF 6D E5 B0 6D E6 B1 6D E7 B2 6D
  69.              E8 B3 6D E9 B4 6D EA 77 06 1A 2B 5F 61 51 AA 6E 7E AB AB 6C 52 6A 04 03 5C 01 1A 0F 16
  70.              03 1A 1B 90 01 99 1F 77 90 01 8E 00 61 00 14 AC 7C A2 04 16 02 7F 01 7F 00 99 20 67 16
  71.              02 A7 7C A3 00 2C 03 03 1A FC 97 AA 03 53 1A 3B AA 61 54 AD 6E C8 AE 31 C9 14 2C 04 03
  72.              1A FC 82 AA 03 55 1A 26 AA 61 56 AD 6B 57 61 58 32 02 3B 14 2C 03 03 1A FC 6B AA 61 59
  73.              2F 03 AA AC 2F 5A 1A FC 5F AA 03 5B 1A 03 AA 03 5C 14 2F 03 1A FC 51 A7 8B 03 28 A7 AC
  74.              8B 2E 23 AA 61 5D A9 2C 03 03 AB 61 5E 6E 27 98 57 1C 0E AB 61 5F 9A 57 14 2C 03 03 16
  75.              01 1A FC 2A 16 01 1A FC 25 AA 61 60 AD 6E 25 2C 03 03 AB AB 2F 61 1A FC 15
  76.             )
  77.       *STANDARD-OUTPUT* *TERMINAL-IO* "~%Description of~%" FORMAT "~A" *PRIN-LINELENGTH*
  78.       WRITE-TO-SHORT-STRING "~%This is "
  79.       #S(HASH-TABLE EQ (ADDRESS . 908.) (SYSTEM-INTERNAL . 903.) (FRAME-POINTER . 891.)
  80.          (READ-LABEL . 873.) (LOAD-TIME-EVAL . 868.) (BYTE . 852.) (RANDOM-STATE . 847.)
  81.          (PATHNAME . 761.) (READTABLE . 748.) (HASH-TABLE . 739.) (PACKAGE . 627.) (STREAM . 615.)
  82.          (COMPILED-FUNCTION . 605.) (FUNCTION . 534.) (CHARACTER . 424.) (COMPLEX . 373.)
  83.          (LONG-FLOAT . 343.) (DOUBLE-FLOAT . 343.) (SINGLE-FLOAT . 343.) (SHORT-FLOAT . 343.)
  84.          (RATIO . 337.) (BIGNUM . 329.) (FIXNUM . 329.) (NULL . 106.) (SYMBOL . 106.) (CONS . 6.)
  85.         )
  86.       #Y(LISP::DESCRIBE-LIST-LENGTH
  87.          #47Y(01 00 00 00 00 02 D5 A9 AA 99 1F 18 99 57 1F 17 91 01 99 21 17 99 57 75 7F 01 66 01
  88.               D6 AA 7E 02 33 02 1A 65 9A 19 05 A9 31 89 19 05 00 19 05
  89.              )
  90.          0. 2.
  91.         )
  92.       "a list of length ~S." 1. "a dotted list of length ~S." "a cons." "a cyclic list."
  93.       "the empty list, " "the symbol ~S" ", a keyword" ", a constant"
  94.       ", a variable declared SPECIAL" ", a variable" SYMBOL-VALUE QUOTE ", names " "a special form"
  95.       " with macro definition" "a function" FUNCTION SYMBOL-FUNCTION "a macro"
  96.       ", has the propert~@P ~{~S~^, ~}" SYMBOL-PLIST "." "~%The symbol " "lies in ~S"
  97.       "is uninterned" *PACKAGE* *PRINT-GENSYM*
  98.       " and is accessible in the package~:[~;s~] ~{~A~^, ~}" #.#'PACKAGE-NAME #.#'STRING< "."
  99.       "an integer, uses ~S bits, is represented as a ~(~A~)." "a rational, not integral number."
  100.       "a float with ~S bits of mantissa (~(~A~))." "a complex number " "at the origin"
  101.       "on the ~:[posi~;nega~]tive real axis" "on the ~:[posi~;nega~]tive imaginary axis"
  102.       "in ~:[~:[first~;fourth~]~;~:[second~;third~]~] the quadrant"
  103.       " of the Gaussian number plane." "a character" " with additional bits" " from font ~S" "."
  104.       "~%It is a ~:[non-~;~]printable character." "~%Its use is non-portable."
  105.       "a~:[n interpret~; compil~]ed function." SIGNATURE DESCRIBE-SIGNATURE DISASSEMBLE
  106.       "~%argument list: ~S" 2. "~%documentation: ~A" "a built-in system function."
  107.       "a special form handler."
  108.       "a~:[~:[ closed ~;n output-~]~;~:[n input-~;n input/output-~]~]stream."
  109.       "the package named ~A" ". It has the nicknames ~{~A~^, ~}" "." "~%It "
  110.       "imports the external symbols of the package~:[~;s~] ~{~A~^, ~} and "
  111.       "exports ~:[no symbols~;the symbols~:*~{~<~%~:; ~S~>~^~}~]"
  112.       #Y(LISP::DESCRIBE-1 #16Y(01 00 00 00 00 02 A8 07 00 01 58 0C 00 01 19 02) NIL)
  113.       #.#'SYMBOL-NAME " to the package~:[~;s~] ~{~A~^, ~}" "." "a hash table with ~S entr~:@P."
  114.       "~:[a~;the Common Lisp~] readtable."
  115.       "a pathname~:[.~;~:*, with the following components:~{~A~}~]"
  116.       (:HOST :DEVICE :DIRECTORY :NAME :TYPE :VERSION) "~%~A = ~A" MAKE-PATHNAME "a random-state."
  117.       "a byte specifier, denoting the ~S bits starting at bit position ~S of an integer."
  118.       "a load-time evaluation promise." "a label used for resolving #~D# references during READ."
  119.       ADDRESS-OF #.(ASH MOST-POSITIVE-FIXNUM -1.) "a pointer into the stack. It points to:"
  120.       DESCRIBE-FRAME "a special-purpose object." "a machine address." "a structure of type ~S." 0.
  121.       "~%As such, it is also a structure of type ~{~S~^, ~}." "an instance of the CLOS class ~S."
  122.       CLOS:DESCRIBE-OBJECT "a~:[~; simple~] ~R dimensional array" " (vector)" " of ~(~A~)s"
  123.       ", adjustable" ", of size ~{~S~^ x ~}" " and current length (fill-pointer) ~S" "."
  124.       "~%For more information, evaluate ~{~S~^ or ~}."
  125.   )  )
  126. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DESCRIBE-SIGNATURE
  127.    REMOVE-OLD-DEFINITIONS
  128.    #Y(DESCRIBE-SIGNATURE
  129.       #127Y(07 00 00 00 00 00 AE D5 2F 01 AE D7 5F D8 D8 1A 34 DA 80 01 D8 1A 0C 81 01 5F DB AA 6A
  130.             03 01 80 02 81 00 A7 B2 8D 01 30 6E 16 01 8F 08 26 DC 80 01 DD 80 01 8F 07 3D 1A 1E 81
  131.             01 5F D9 AA 6A 03 01 80 02 81 00 A7 B3 8D 01 30 6E 16 01 B0 8A 85 40 8E 08 5A 8F 07 1D
  132.             DE 80 01 AD 5F 1A 0A 83 01 00 14 6D 86 80 03 7F 01 A8 89 92 72 16 02 8F 05 03 DF 80 01
  133.             A8 31 43 16 01 F6 2C 03 01 19 08
  134.            )
  135.       "~%argument list: " FORMAT "(~{~A~^ ~})" 0. "ARG~D" &OPTIONAL "ARG~D" &REST "OTHER-ARGS" &KEY
  136.       &ALLOW-OTHER-KEYS
  137.   )  )
  138. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) WRITE-TO-SHORT-STRING
  139.    REMOVE-OLD-DEFINITIONS
  140.    #Y(WRITE-TO-SHORT-STRING
  141.       #141Y(02 00 00 00 00 03 A9 8A 05 08 A9 8A 03 04 D5 D6 1A 28 A9 37 0B 30 85 19 03 98 F8 16 01
  142.             1A 1B A8 A8 6F 02 33 D8 6E A6 AC 37 0B A4 FF FE 6D 85 6E 41 AC 8C 01 2F 63 98 F7 16 01
  143.             A7 A9 6F 01 34 D7 8D 01 2B 5B 99 16 01 F6 A7 D8 92 02 6F 02 35 1A 23 98 F8 16 01 1A 1D
  144.             A8 A8 6F 02 33 D8 6E A6 AD 37 0B 04 0F FF A4 FE 6D 85 6E 41 AD 8C 01 2F 61 98 F7 16 01
  145.             A7 A9 6F 01 34 D7 8D 01 2B 59 99 16 01 F6 AB 37 0B A5 FF A4 FE 30 85 19 05
  146.            )
  147.       0. 16. 1. 2.
  148.   )  )
  149. #Y(#:TOP-LEVEL-FORM-10
  150.    #32Y(00 00 00 00 00 01 00 2A 03 00 0B 00 00 0B 00 01 0B 00 02 D5 2E 01 D5 A8 69 02 01 31 74 C0
  151.         19 02
  152.        )
  153.    DRIBBLE REMOVE-OLD-DEFINITIONS
  154.    #Y(DRIBBLE
  155.       #118Y(00 00 01 00 00 07 3A 01 18 79 01 8E 01 16 07 00 01 1B 80 40 DB 2E 02 19 02 D6 65 00 01
  156.             2F 02 1A 2E 8F 01 6A 07 00 01 1B 70 A8 D8 37 03 30 F6 0C 00 01 0E 04 0C 00 02 0E 05 0C
  157.             00 03 67 04 65 00 01 31 66 0F 04 67 05 65 00 01 32 02 29 0F 05 07 00 01 19 02 07 00 02
  158.             0F 04 07 00 03 0F 05 00 0C 00 02 0C 00 03 65 00 01 65 00 01 37 01 31 6F 00 0C 00 01 15
  159.             19 02
  160.            )
  161.       NIL "Already dribbling to ~S" WARN :OUTPUT *STANDARD-INPUT* *STANDARD-OUTPUT*
  162.       "Currently not dribbling."
  163.   )  )
  164. #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D5 30 5B D6 5F 30 53 C1 19 01) (SPECIAL *EDITOR*)
  165.    *EDITOR*
  166.   )
  167. #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EDITOR-TEMPFILE
  168.    REMOVE-OLD-DEFINITIONS #Y(EDITOR-TEMPFILE #9Y(00 00 00 00 00 01 C0 19 01) "lisptemp.lsp")
  169.   )
  170. #Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EDIT-FILE
  171.    REMOVE-OLD-DEFINITIONS
  172.    #Y(EDIT-FILE #22Y(01 00 00 00 00 02 0E 00 1C 09 67 00 A9 6D F1 2F 02 19 02 D6 5E 00) *EDITOR*
  173.       "No external editor installed." EXECUTE
  174.   )  )
  175. #Y(#:TOP-LEVEL-FORM-14 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ED
  176.    REMOVE-OLD-DEFINITIONS
  177.    #Y(ED
  178.       #255Y(00 00 01 00 00 07 3C 01 01 04 8F 05 0F AC 8A 17 05 AC 8B 04 80 B0 9D 14 2E 01 19 06 C0
  179.             1A 78 AC 8B 19 80 D7 AC D8 7D 27 03 14 85 02 80 CD 1A 80 9C A8 DB 6E 27 A9 DC 6E 27 AA
  180.             DD 6E 27 AB DE 6E 27 AC DF 6E 27 6F 05 00 2D 0B 14 A7 E1 37 03 6D F6 50 1B AC AA 30 83
  181.             A9 30 8B A9 30 8B 8F 02 05 14 37 01 31 6F 3D 51 05 00 00 1C 0B 1A 05 05 00 00 1C 04 14
  182.             60 31 6F 52 16 01 A7 2E 01 A7 E2 37 03 6D F6 50 32 0E 0E 10 0E 1A 0C A7 01 02 B2 6D 5D
  183.             37 01 30 82 16 01 AC 5F E4 37 01 6D 74 A7 E4 89 FE 68 16 01 11 8F 02 05 14 37 01 31 6F
  184.             3D 51 05 00 00 1C 0B 1A 05 05 00 00 1C 04 14 60 31 6F 52 16 01 9D 19 08 AC 85 02 FF 54
  185.             9D F9 AA 2E 04 F8 14 89 51 26 A9 7C 58 01 1B 05 9A 59 F7 1C 1B A8 8B 19 17 A8 8A 06 13
  186.             AC 84 02 05 A8 AD 89 FE 0A A9 DA 37 01 7D 76 00 1B FF 36 E5 AD 5E 01
  187.            )
  188.       "" EDIT-FILE FUNCTION-NAME-P 0. GET-FUNNAME-SYMBOL DEFINITION 4. 5. 6. 7. 8. EDITOR-TEMPFILE
  189.       :OUTPUT :INPUT *PACKAGE* "EOF" "~S cannot be edited."
  190.   )  )
  191. #Y(#:TOP-LEVEL-FORM-15 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SAVEINITMEM
  192.    REMOVE-OLD-DEFINITIONS
  193.    #Y(SAVEINITMEM
  194.       #37Y(00 00 00 00 00 01 D5 30 E2 00 0F 01 0F 02 0F 03 0F 04 0F 05 0F 06 0F 07 0F 08 0F 09 0F
  195.            0A E0 30 FD 30 62 19 01
  196.           )
  197.       #Y(LISP::SAVEINITMEM-1 #12Y(01 00 00 00 00 02 A8 D5 31 7B 19 02) DEFINITION) - + ++ +++ * **
  198.       *** / // /// "lispinit.mem"
  199.   )  )
  200. #Y(#:TOP-LEVEL-FORM-16 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COMPLETION
  201.    REMOVE-OLD-DEFINITIONS
  202.    #Y(COMPLETION
  203.       #342Y(03 00 00 00 00 04 A9 5F AB D5 8D 01 30 0F AC 93 05 6D 32 D6 37 03 89 B3 04 82 01 7A 00
  204.             00 2A 03 00 0B 00 00 0B 00 01 0B 00 02 A9 D5 8D 01 30 0B AD 93 03 AB 6E 3F D7 88 FF 80
  205.             6E A9 D8 8D 01 30 0E AD D9 AB 6F 02 33 AB 6E 3F DA 88 FF 80 5A A7 2B 07 01 14 67 08 DE
  206.             5F 8E 05 12 DF B2 37 06 04 11 FA 04 10 F9 6E 59 8E 00 80 4C 16 01 B1 B1 B1 31 3F 0B 04
  207.             00 14 31 41 0B 04 01 A8 AB AB 35 02 06 04 02 1C 80 5E 8E 05 0A E1 64 05 02 32 00 17 0B
  208.             04 02 64 04 02 E2 37 03 31 61 0B 04 02 74 6E 41 06 05 02 75 5F 1A 80 4B A7 2B 06 01 1A
  209.             FF A3 00 19 0C 81 00 1A 1F B2 B2 A9 6E 3F 37 02 6D 47 7C CB 03 1C 6B 81 00 14 B1 8D 01
  210.             2D 07 B2 A8 6D 32 23 0A 5F CB F8 B2 B2 A9 7D 3F 01 98 09 0A 16 01 1A FF 89 00 19 0B 83
  211.             01 00 A9 A8 6E 41 7E 01 32 02 7F 01 A8 89 92 6F 16 02 E3 A7 A9 88 FE 27 06 06 02 74 A8
  212.             6D 32 06 07 02 75 5F 1A 08 16 03 81 00 1A 67 7F 01 A8 88 92 74 83 01 00 14 AB 6D 32 AA
  213.             88 FE 6F 16 03 06 06 02 74 E3 A9 6E 3F 06 07 02 58 0B 06 02 16 02 8F 00 16 64 04 02 A7
  214.             1A 0B A7 AA 90 02 6F 02 13 30 A8 7F 00 98 20 72 16 02 06 04 02 19 0B
  215.            )
  216.       1. (#\" #\|) "(" 2. -2. "#'"
  217.       #Y(COMPLETION-1
  218.          #52Y(01 00 00 00 00 02 A8 88 51 0D 00 19 02 A7 07 00 03 58 0C 00 03 19 03 A8 6E 7E A7 6E
  219.               41 65 00 02 8D 01 30 0D A7 65 00 01 37 04 07 00 02 F8 88 3C 5C 00 19 03
  220.              )
  221.          NIL
  222.         )
  223.       #Y(COMPLETION-2
  224.          #45Y(01 00 00 00 00 02 A8 6E 7E A7 6E 41 65 00 02 8D 01 30 0D A7 65 00 01 37 04 07 00 02
  225.               F8 88 3C 03 00 19 03 A7 07 00 03 58 0C 00 03 19 03
  226.              )
  227.          NIL
  228.         )
  229.       *PACKAGE* #.#'MAP-SYMBOLS #\: #.#'MAP-EXTERNAL-SYMBOLS #.#'STRING-DOWNCASE #.#'STRING< 0.
  230.   )  )